home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / CUCD / Programming / JForth / JTools / JARexx / tests / macro1.srh < prev    next >
Encoding:
Text File  |  1992-04-23  |  647 b   |  32 lines
  1. /* Send commands to SAMPLEAPP */
  2. /* Note that the first line of an ARexx program must be a comment! */
  3.  
  4. /* Use host to add two numbers together. */
  5. myvar = 2345
  6. options results
  7. CALCSUM 111 myvar
  8. say 'result = ' result
  9.  
  10. /* Print some commands */
  11. TYPETEXT '"Hello World!" 3'
  12.  
  13. /* Print rest of line */
  14. TYPEREM 'This entire line gets printed without needing embedded quotes!'
  15.  
  16. /* Send a string for processing. */
  17. INCTEXT '"Qcapcr," 2'
  18. say 'Processed string = ' result
  19.  
  20. options
  21.  
  22. /* Send a bogus command. */
  23. BADCOMM 123
  24.  
  25. /* Send a bogus parameter. */
  26. CALCSUM 111 '3X4qqz'
  27.  
  28. /* Print some commands */
  29. TYPETEXT '"All Done..." 2'
  30.  
  31. say 'Finished MACRO1.SRH'
  32.